home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Graphics / X-TRACE67.lzh / XTRACE R67 / X-TRACE / X-TRACE.rsrc / TEXT_1004_pcube.xti.txt < prev    next >
Text File  |  1999-01-31  |  668b  |  54 lines
  1. xtrace    "poly-cube"
  2. {
  3.     procedure    pcube    l,m,n, p,q,r
  4.     {
  5.         para    l,m,n;
  6.         sim        p,q,r;
  7.         boundary    sphere    0,0,0, sqrt (3)
  8.         {
  9.             poly    ﾃｨ窶榲ｱﾂ 
  10.             {
  11.                 pt    1,1,1;
  12.                 pt    1,-1,1;
  13.                 pt    -1,-1,1;
  14.                 pt    -1,1,1;
  15.             }
  16.             poly    ﾃｫﾂｧﾃｱﾂ 1
  17.             {
  18.                 pt    1,1,1;
  19.                 pt    1,1,-1;
  20.                 pt    1,-1,-1;
  21.                 pt    1,-1,1;
  22.             }
  23.             poly    ﾃｫﾂｧﾃｱﾂ 2
  24.             {
  25.                 pt    1,-1,1;
  26.                 pt    1,-1,-1;
  27.                 pt    -1,-1,-1;
  28.                 pt    -1,-1,1;
  29.             }
  30.             poly    ﾃｫﾂｧﾃｱﾂ 3
  31.             {
  32.                 pt    -1,1,1;
  33.                 pt    -1,1,-1;
  34.                 pt    -1,-1,-1;
  35.                 pt    -1,-1,1;
  36.             }
  37.             poly    ﾃｫﾂｧﾃｱﾂ 4
  38.             {
  39.                 pt    1,1,1;
  40.                 pt    1,1,-1;
  41.                 pt    -1,1,-1;
  42.                 pt    -1,1,1;
  43.             }
  44.             poly    ﾃｭﾃ催ｱﾂ 
  45.             {
  46.                 pt    1,1,-1;
  47.                 pt    1,-1,-1;
  48.                 pt    -1,-1,-1;
  49.                 pt    -1,1,-1;
  50.             }
  51.         }
  52.     }
  53. }
  54.